make dir
make any

:again
jeq hit,1,:attacked

scope dir
jeq dir,cgdir,:look

call :align

:look

scan any,cgdir

jeq any,0,:again

fire
fire

goto :again

:attacked
move
move
move
move
right
right
move
move
goto :again

;---------------------------
:align

aim dir

jeq dir,cgdir,:goback

jeq hit,1,:goback

right

goto :align

:goback
return